Imports CapaDeDatos
Public Class nSolicitudServicio
    Private TblSolicitudServicio As CapaDeDatos.dSolicitudServicio = New CapaDeDatos.dSolicitudServicio()
    Private TblCliente As CapaDeDatos.dCliente = New CapaDeDatos.dCliente()
    Private TblTipoUnidad As CapaDeDatos.dTipoUnidad = New CapaDeDatos.dTipoUnidad()


    Public Function Insertar(ByVal CodigoSolicitudServicios As Long, ByVal FechaSolicitud As Date, ByVal FechaRealizacion As Date, ByVal descripcion As String, ByVal codigoCliente As Long, ByVal estadoSolicitud As String, ByVal codigoTunidad As Double) As Boolean
        Return TblSolicitudServicio.Insertar(CodigoSolicitudServicios, FechaSolicitud, FechaRealizacion, descripcion, codigoCliente, estadoSolicitud, codigoTunidad)
    End Function
    Public Function Listar() As DataSet
        Return TblSolicitudServicio.Listar()
    End Function
    Public Function Modificar(ByVal CodigoSolicitudServicios As Double, ByVal FechaSolicitud As Date, ByVal FechaRealizacion As Date, ByVal descripcion As String, ByVal codigoCliente As Double, ByVal estadoSolicitud As String, ByVal codigoTunidad As Double) As Boolean
        Return TblSolicitudServicio.Modificar(CodigoSolicitudServicios, FechaSolicitud, FechaRealizacion, descripcion, codigoCliente, estadoSolicitud, codigoTunidad)
    End Function
    Public Function Eliminar(ByVal CodigoSolicitudServicios As String) As Boolean
        Return TblSolicitudServicio.Eliminar(CodigoSolicitudServicios)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoSolicitudServicios As Double, ByVal FechaSolicitud As Date, ByVal FechaRealizacion As Date, ByVal descripcion As String, ByVal codigoCliente As Double, ByVal estadoSolicitud As String, ByVal codigoTunidad As Double) As DataSet
        Dim dtsSolicitud As DataSet
        dtsSolicitud = TblSolicitudServicio.BuscarFiltrado(CodigoSolicitudServicios, FechaSolicitud, FechaRealizacion, descripcion, codigoCliente, estadoSolicitud, codigoTunidad)
        dtsSolicitud.Tables(0).Columns.Add("TipoUnidad")
        dtsSolicitud.Tables(0).Columns.Add("Cliente")
        Dim i As Integer
        For i = 0 To dtsSolicitud.Tables(0).Rows.Count - 1

            Try
                '1'obtener id del dataset principal (resultado: string, long int)

                Dim Idcliente As Integer = dtsSolicitud.Tables(0).Rows(i)("codigoCliente")
                '2'genero data set secundario y filtro con el Id obtenido arriba
                Dim dtsCliente As DataSet = TblCliente.BuscarFiltrado(Idcliente, "", "", "", "", "", "", "", "", "", "", "")
                '3'del data set secundario saco el campo descripcion asigno a variable
                Dim nombreCliente As String = dtsCliente.Tables(0).Rows(0)("RazonSocial")
                '4' le asigno la variable con la descripcion a la columna que cree
                dtsSolicitud.Tables(0).Rows(i)("Cliente") = nombreCliente

            Catch ex As Exception
            End Try

            Try
                Dim IdCodigoTunidad As String = dtsSolicitud.Tables(0).Rows(i)("CodigoTunidad")
                Dim dtsTipoUnidad As DataSet = TblTipoUnidad.Buscar(IdCodigoTunidad, "", 1)
                Dim TipoUnidad As String = dtsTipoUnidad.Tables(0).Rows(0)("descripcion")
                dtsSolicitud.Tables(0).Rows(i)("TipoUnidad") = TipoUnidad
            Catch ex As Exception
            End Try

        Next
        Return dtsSolicitud
    End Function

    Public Function Buscar(ByVal CodigoSolicitudServicios As String, ByVal FechaSolicitud As String, ByVal FechaRealizacion As String, ByVal descripcion As String, ByVal codigoCliente As String, ByVal estadoSolicitud As String, ByVal codigoTunidad As String) As DataSet
        Dim dtsSolicitud As DataSet
        dtsSolicitud = TblSolicitudServicio.Buscar(CodigoSolicitudServicios, FechaSolicitud, FechaRealizacion, descripcion, codigoCliente, estadoSolicitud, codigoTunidad)
        Return dtsSolicitud
    End Function


    ' Public Function Buscar(ByVal CodigoSolicitudServicios As Double, ByVal FechaSolicitud As Date, ByVal FechaRealizacion As Date, ByVal descripcion As String, ByVal codigoContacto As Double, ByVal estadoSolicitud As String, ByVal codigoTunidad As Double) As DataSet
    '   Return TblSolicitudServicio.BuscarFiltrado(CodigoSolicitudServicios, FechaSolicitud, FechaRealizacion, descripcion, codigoContacto, estadoSolicitud, codigoTunidad)
    ' End Function

End Class
